MesPoint macro address
alpha set (address-valstart)
        LongSwap alpha
        endm
MesSize macro start,end
beta set (end-start)
        ExtSwap beta
        endm
NameSize macro start,end
beta set (end-start)
        ExtSwap beta
        endm
NameText macro text
        dc.b text
        endm
Text macro text
        dc.b text
        endm
ExtSwap macro var
      dc.w (((var)&$FF)<<8)+(((var)&$FF00)>>8)
      endm
LongSwap macro var
      dc.l var
      endm
BR equ $a
ER equ $22
;---------------------------------------------------------------------------------------
        message "Calculating pointers..."
        dc.l keystart,keyend-keystart
        dc.l valstart,valend-valstart
        ;align 16
keystart:
        include de\key.asm
keyend:
valstart:
        include de\val.asm
valend: